home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 3 / Precision Software Applications Silver Collection Volume Three (PSM) (1993).iso / music2 / mepody.exe / INVENTIO.C < prev    next >
C/C++ Source or Header  |  1992-01-23  |  4KB  |  59 lines
  1. #include <dos.h>
  2. int melody[][2] = {
  3. {  0,  0},{349,100},{  0,100},{440,100},{  0,100},{349,100},{  0,100}
  4. ,{524,100},{  0,100},{349,100},{  0,100},{698,100},{  0,100},{660,100}
  5. ,{588,100},{524,100},{588,100},{524,100},{466,100},{440,100},{466,100}
  6. ,{440,100},{392,100},{349,100},{  0,100},{440,100},{  0,100},{524,100}
  7. ,{  0,100},{440,100},{  0,100},{698,100},{  0,100},{524,100},{  0,100}
  8. ,{880,100},{1048,100},{932,100},{1048,100},{880,100},{1048,100},{932,100}
  9. ,{1048,100},{880,100},{1048,100},{932,100},{1048,100},{698,100},{880,100}
  10. ,{784,100},{880,100},{698,100},{880,100},{784,100},{880,100},{698,100}
  11. ,{880,100},{784,100},{880,100},{588,100},{698,100},{660,100},{698,100}
  12. ,{588,100},{698,100},{660,100},{698,100},{588,100},{698,100},{660,100}
  13. ,{698,100},{494,100},{  0,100},{392,100},{  0,100},{588,100},{  0,100}
  14. ,{494,100},{  0,100},{698,100},{  0,100},{588,100},{  0,100},{784,100}
  15. ,{880,100},{784,100},{698,100},{660,100},{698,100},{660,100},{588,100}
  16. ,{524,100},{588,100},{524,100},{466,100},{440,100},{  0,100},{588,100}
  17. ,{524,100},{494,100},{524,100},{494,100},{440,100},{392,100},{440,100}
  18. ,{392,100},{349,100},{330,100},{349,100},{330,100},{294,100},{262,100}
  19. ,{  0,100},{524,100},{494,100},{524,100},{  0,100},{330,100},{  0,100}
  20. ,{349,100},{  0,100},{524,100},{  0,100},{330,100},{  0,100},{524,100}
  21. ,{  0,100},{294,100},{  0,100},{494,100},{  0,100},{524,400},{  0,400}
  22. ,{  0,200},{524,100},{  0,100},{660,100},{  0,100},{524,100},{  0,100}
  23. ,{784,100},{  0,100},{524,100},{  0,100},{1048,100},{  0,100},{988,100}
  24. ,{880,100},{784,100},{880,100},{784,100},{698,100},{660,100},{698,100}
  25. ,{660,100},{588,100},{524,100},{466,100},{524,100},{880,100},{524,100}
  26. ,{880,100},{466,100},{880,100},{524,100},{880,100},{440,100},{  0,100}
  27. ,{466,100},{  0,100},{392,100},{  0,100},{466,100},{  0,100},{392,100}
  28. ,{  0,100},{588,100},{  0,100},{392,100},{  0,100},{784,100},{  0,100}
  29. ,{698,100},{622,100},{588,100},{622,100},{588,100},{524,100},{466,100}
  30. ,{524,100},{466,100},{440,100},{392,100},{  0,100},{466,100},{  0,100}
  31. ,{588,100},{  0,100},{466,100},{  0,100},{784,100},{  0,100},{588,100}
  32. ,{  0,100},{932,100},{  0,100},{554,100},{  0,100},{932,100},{  0,100}
  33. ,{554,100},{  0,100},{932,100},{  0,100},{554,100},{  0,100},{588,100}
  34. ,{  0,100},{440,100},{  0,100},{698,100},{  0,100},{588,100},{  0,100}
  35. ,{880,100},{  0,100},{698,100},{  0,100},{784,100},{698,100},{784,100}
  36. ,{932,100},{524,100},{932,100},{588,100},{932,100},{660,100},{932,100}
  37. ,{524,100},{932,100},{698,100},{660,100},{698,100},{880,100},{494,100}
  38. ,{880,100},{554,100},{880,100},{588,100},{880,100},{494,100},{880,100}
  39. ,{660,100},{588,100},{660,100},{784,100},{440,100},{784,100},{494,100}
  40. ,{784,100},{554,100},{784,100},{440,100},{784,100},{698,100},{  0,100}
  41. ,{588,100},{  0,100},{466,100},{  0,100},{588,100},{  0,100},{392,100}
  42. ,{  0,100},{698,200},{660,100},{  0,100},{524,100},{  0,100},{440,100}
  43. ,{  0,100},{524,100},{  0,100},{349,100},{  0,100},{622,200},{588,100}
  44. ,{698,100},{622,100},{698,100},{588,100},{698,100},{622,100},{698,100}
  45. ,{588,100},{698,100},{622,100},{698,100},{466,100},{588,100},{524,100}
  46. ,{588,100},{466,100},{588,100},{524,100},{588,100},{466,100},{588,100}
  47. ,{524,100},{588,100},{392,100},{466,100},{440,100},{466,100},{392,100}
  48. ,{466,100},{440,100},{466,100},{392,100},{466,100},{440,100},{466,100}
  49. ,{330,100},{  0,100},{262,100},{  0,100},{392,100},{  0,100},{330,100}
  50. ,{  0,100},{466,100},{  0,100},{392,100},{  0,100},{524,100},{588,100}
  51. ,{524,100},{466,100},{440,100},{466,100},{440,100},{392,100},{349,100}
  52. ,{392,100},{349,100},{311,100},{294,100},{  0,100},{392,100},{349,100}
  53. ,{330,100},{349,100},{330,100},{294,100},{262,100},{294,100},{262,100}
  54. ,{233,100},{220,100},{233,100},{220,100},{196,100},{175,100},{  0,100}
  55. ,{349,100},{330,100},{349,100},{  0,100},{220,100},{  0,100},{233,100}
  56. ,{  0,100},{349,100},{  0,100},{220,100},{  0,100},{349,100},{  0,100}
  57. ,{196,100},{  0,100},{330,100},{  0,100},{349,800}};
  58. #define MAX 382
  59.